home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Language/OS - Multiplatform Resource Library
/
LANGUAGE OS.iso
/
gnu
/
button12.lha
/
tshirt.morin.ps
< prev
Wrap
Text File
|
1993-08-05
|
1KB
|
58 lines
%
% gts.ps - GNU t-shirt design
%
% This program may be freely redistributed under
% the terms of the GNU General Public License.
%
% Copyright 1988 Free Software Foundation
%
% Uses {in,out}sidecircletext routines from Adobe Cookbook.
.so circtext.ps
/inch { 72 mul } def
/cshow {
text stringwidth pop 2 div neg points 3 div neg moveto
text show
} def
/radius 3.5 inch def
4.25 inch 5.5 inch translate
gsave
/text (UNIX) def
/points 150 def
/Times-Bold findfont points scalefont setfont
cshow
grestore
/points 27 def
/Times-Roman findfont points scalefont setfont
gsave
points 1.5 mul setlinewidth
newpath
0 0 radius points 3 div add 0 360 arc
stroke
45 rotate
newpath
radius neg 0 moveto
radius 0 lineto
stroke
1 setgray
/text (GNU's Not Unix) def
cshow
grestore
1 setgray
(This t-shirt design may be freely redistributed\
under the terms of the GNU General Public License.)
points 90 radius outsidecircletext
(Copyright 1988 Free Software Foundation)
points 270 radius points 2 div add insidecircletext
1 { copypage } repeat